10 POKE 52,48:POKE53,0:POKE54,48:POKE 56,48:CLR 20 V=53248 30 POKEV+32,2:POKEV+33,1 35 POKEV+23,7: POKE V+29,7: POKE V+27,0 40 PT=2040: SD=12288 50 GOSUB9000 60 PRINT"[147]" 100 POKE V+0,160: POKE V+1,125 110 POKE PT,192: POKE V+39,3 120 POKE V+21,1 130 POKE V+2,24: POKE V+3,125 135 POKE PT+1,193: POKE V+40,0 140 POKE V+21,3 150 SX=V+2: GOSUB 7000 160 GOSUB 8000 170 GOSUB 7500 180 GOSUB 8000 190 POKE V+21,0 200 POKE V+0,24: POKE V+1,125 210 POKE PT,193: POKE V+39,0 220 POKE V+21,2 230 POKE V+2,160: POKE V+3,125 240 POKE PT+1,192: POKE V+40,3 250 POKE V+21,3 260 SX=V+0: GOSUB 7000 270 GOSUB 8000 280 GOSUB 7500 290 GOSUB 8000 300 POKEV+21,0 310 POKE PT+0,194:POKEV+39,3:POKE V+0,160: POKE V+1,125 320 POKE PT+2,195:POKEV+41,3:POKE V+4,160: POKE V+5,125 325 POKEV+21,5 330 POKE PT+1,193:POKEV+40,0:POKE V+2,24:POKE V+3,125 335 POKEV+21,7 340 SX=V+2: GOSUB 7000 350 GOSUB 8000 360 GOSUB 7500 370 GOSUB 8000 400 POKEPT,195:POKEPT+2,194 410 GOSUB7000:GOSUB8000 420 GOSUB7500:GOSUB8000 500 POKE V+21,0 510 POKE V+0,24: POKE V+4,24 520 PRINT"[147][144]SOME CHARACTERS: [211] [156][209] [144][193] [191] [129]$ [144][215]" 530 POKEV+21,5 540 GOSUB6000:GOSUB8000 550 GOSUB6500:GOSUB8000 560 POKE V+27,4 570 GOSUB6000:GOSUB8000 580 GOSUB6500:GOSUB8000 590 STOP 6000 REM MOVE TWO SPRITES 6010 FORX=24TO255 6020 :POKEV+0,X:POKEV+4,X 6030 :GETT$:IFT$=""THEN6050 6040 :GOSUB8000 6050 NEXT X 6060 RETURN 6500 REM MOVE TWO SPRITES 6510 FORX=255TO24STEP-1 6520 :POKEV+0,X:POKEV+4,X 6530 :GETT$:IFT$=""THEN6550 6540 :GOSUB8000 6550 NEXT X 6560 RETURN 7000 REM MOVE SPRITE L TO R 7010 FOR X=24 TO 255 7020 :POKE SX,X 7025 GETT$:IFT$=""THEN7030 7026 GOSUB8000 7030 NEXT X 7040 RETURN 7500 REM MOVE SPRITE R TO L 7510 FOR X=255 TO 24 STEP -1 7520 :POKE SX,X 7525 GETT$:IFT$=""THEN7030 7526 GOSUB8000 7530 NEXT X 7540 RETURN 8000 GETT$:IFT$=""THEN8000 8010 RETURN 8999 END 9000 REM READ IN SPRITE DEFS 9010 FOR I=0 TO 3 9020 :FOR J=0 TO 62 9030 ::READ X 9040 ::POKE SD+I*64+J,X 9050 :NEXT J 9060 NEXT I 9070 RETURN 10000 REM SPRITE DEFINITIONS 10010 DATA 240,240,240 10020 DATA 240,240,240 10030 DATA 240,240,240 10040 DATA 240,240,240 10050 DATA 240,240,240 10060 DATA 240,240,240 10070 DATA 240,240,240 10080 DATA 240,240,240 10090 DATA 240,240,240 10100 DATA 240,240,240 10110 DATA 240,240,240 10120 DATA 240,240,240 10130 DATA 240,240,240 10140 DATA 240,240,240 10150 DATA 240,240,240 10160 DATA 240,240,240 10170 DATA 240,240,240 10180 DATA 240,240,240 10190 DATA 240,240,240 10200 DATA 240,240,240 10210 DATA 240,240,240 10500 REM 10520 DATA 0,0,0 10530 DATA 0,0,0 10540 DATA 0,0,0 10550 DATA 255,255,255 10560 DATA 255,255,255 10570 DATA 255,255,255 10580 DATA 0,0,0 10590 DATA 0,0,0 10600 DATA 0,0,0 10610 DATA 255,255,255 10620 DATA 255,255,255 10630 DATA 255,255,255 10640 DATA 0,0,0 10650 DATA 0,0,0 10660 DATA 0,0,0 10670 DATA 255,255,255 10680 DATA 255,255,255 10690 DATA 255,255,255 10700 DATA 0,0,0 10710 DATA 0,0,0 10720 DATA 0,0,0 11000 DATA 240,0,240 11010 DATA 240,0,240 11020 DATA 240,0,240 11030 DATA 240,0,240 11040 DATA 240,0,240 11050 DATA 240,0,240 11060 DATA 240,0,240 11070 DATA 240,0,240 11080 DATA 240,0,240 11090 DATA 240,0,240 11100 DATA 240,0,240 11110 DATA 240,0,240 11120 DATA 240,0,240 11130 DATA 240,0,240 11140 DATA 240,0,240 11150 DATA 240,0,240 11160 DATA 240,0,240 11170 DATA 240,0,240 11180 DATA 240,0,240 11190 DATA 240,0,240 11200 DATA 240,0,240 11500 DATA 0,240,0 11510 DATA 0,240,0 11520 DATA 0,240,0 11530 DATA 0,240,0 11540 DATA 0,240,0 11550 DATA 0,240,0 11560 DATA 0,240,0 11570 DATA 0,240,0 11580 DATA 0,240,0 11590 DATA 0,240,0 11600 DATA 0,240,0 11610 DATA 0,240,0 11620 DATA 0,240,0 11630 DATA 0,240,0 11640 DATA 0,240,0 11650 DATA 0,240,0 11660 DATA 0,240,0 11670 DATA 0,240,0 11680 DATA 0,240,0 11690 DATA 0,240,0 11700 DATA 0,240,0